﻿Public Class collage
    Private numberofclick As Integer = 0
    Public time As Integer
     Dim surface As Graphics
    Private Function choosepicture() As Image
        Select Case time
            Case 0
                Return My.Resources.bg17_a
            Case 1
                Return My.Resources.bg17_a
            Case Else
                Return My.Resources.bg17_b
        End Select
    End Function
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles screen.Click
        Dim screensurface As Image = choosepicture()
        surface = Graphics.FromImage(screensurface)
        Dim backcolor As Color = Color.FromArgb(155, 0, 0, 0)
        Dim mypen As Brush = New SolidBrush(backcolor)
        Dim textrectangle As New Rectangle(0, 350, 640, 130)
        Dim textbrush As Brush = New SolidBrush(Color.White)
        Dim textpoint As New Point(250, 400)
        Dim rolerectangle As New Rectangle(0, 280, My.Resources.f_aa01.Width, My.Resources.f_aa01.Height)
        Dim textforn As Font = New Font(Me.Font.Name, 24)
        surface.FillRectangle(mypen, textrectangle)
        numberofclick += 1
        Select Case numberofclick
            Case 1
                surface.DrawImageUnscaledAndClipped(My.Resources.f_aa01, rolerectangle)
                surface.DrawString("啊，信箱里有封信。", textforn, textbrush, textpoint)
            Case 2
                surface.DrawImageUnscaledAndClipped(My.Resources.f_aa02, rolerectangle)
                surface.DrawString("嗯～这是……委托书？", textforn, textbrush, textpoint)
            Case 3
                surface.DrawString(" 委托人是市长。", textforn, textbrush, textpoint)
            Case 4
                surface.DrawImageUnscaledAndClipped(My.Resources.f_aa16, rolerectangle)
                surface.DrawString(" 究竟想委托我们做什么呢……", textforn, textbrush, textpoint)
            Case 5
                numberofclick = 0
                surface.Dispose()
                Me.Hide()
                Return
        End Select
        screen.Image = screensurface
    End Sub

    Public Sub collage_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'load the picture ,must load first !
        screen.Image = choosepicture()
        screen.Refresh()
    End Sub
End Class
